home *** CD-ROM | disk | FTP | other *** search
/ Inside the White House / Inside the White House.iso / bios.dir / 00216.ls < prev    next >
Encoding:
Text File  |  1995-08-02  |  521 b   |  21 lines
  1. on mouseUp
  2.   global gSPicStart, gSPicEnd, gSPicSprite
  3.   puppetSound("newclick.aif")
  4.   set the ink of sprite the clickOn to 4
  5.   updateStage()
  6.   repeat while the stillDown or soundBusy(1)
  7.   end repeat
  8.   set the ink of sprite the clickOn to 36
  9.   updateStage()
  10.   set cnum to the castNum of sprite gSPicSprite
  11.   put gSPicSprite
  12.   put cnum
  13.   put gSPicEnd
  14.   if cnum = gSPicStart then
  15.     set the castNum of sprite gSPicSprite to gSPicEnd
  16.   else
  17.     set the castNum of sprite gSPicSprite to cnum - 1
  18.   end if
  19.   updateStage()
  20. end
  21.